


* ============================================================================================================ *
* Understanding Resourcing Trade-offs in International Organizations: Evidence from an Elite Survey Experiment *
* Authors: Mirko Heinzel, Bernhard Reinsberg & Christian Siauwijaya                                            *
* Version: 20.10.2023                                                                                          *
* Stata 16.2                                                                                                   *
* ===========================================================================================================  *

cd "Location of unzipped files"
*ssc install plottig

************************
*Figure 1: IO selection*
************************

use "MOPAN_EM.dta"
twoway (scatter y1 EMLT, mlab(acr)) ,  scheme(plotplainblind) ytitle(Process performance) xtitle(Average earmarking share) legend(off) xline(0.6, lcolor(sky)) yline(0, lcolor(sky))

*****************************
*Figure 2: statistical power*
*****************************

*create "power_combined.dta" file using "Power_calculations.R" file
use "power_combined.dta"
keep n power estimate
tostring power, replace
replace power = subinstr(power, ".", "_",.)
reshape wide n , i(estimate) j(power, string)

label var n_7 "Power = 0.7"
label var n_8 "Power = 0.8"
label var n_9 "Power = 0.9"

graph twoway  (line n_7 estimate) (line n_8 estimate) (line n_9 estimate, lcolor(gs12)) , yline(6062, lcolor(sky)) scheme(plotplainblind) xlabel(0.22(0.11)1.1)
 
*****************************
*Figure 3: conjoint analysis*
*****************************

*---------------*
* Simulate data *
*---------------*

* creating dataset with 433 respondents

clear all
set seed 9999999
set obs 433
gen id=_n
gen IO=1 if id<80
replace IO=2 if missing(IO) & id<130
replace IO=3 if missing(IO) & id<191
replace IO=4 if missing(IO) & id<236
replace IO=5 if missing(IO) & id<325
replace IO=6 if missing(IO) 
generate random_monadic = runiform()
sort random_monadic
gen group = ceil(4 * _n/_N)

* creating 14 iterations: 7 tasks * 2 profiles 

// 1st iteration 
{ 

generate random_cj1_1 = runiform()
generate random_cj2_1 = runiform()
generate random_cj3_1 = runiform()
generate random_cj4_1 = runiform()
generate random_cj5_1 = runiform()
generate random_cj6_1 = runiform()

sort random_cj1_1
gen element1 = ceil(2 * _n/_N)

sort random_cj2_1
gen element2 = ceil(2 * _n/_N)

sort random_cj3_1
gen element3 = ceil(2 * _n/_N)

sort random_cj4_1
gen element4 = ceil(2 * _n/_N)

sort random_cj5_1
gen element5 = ceil(2 * _n/_N)

sort random_cj6_1
gen element6 = ceil(2 * _n/_N)

generate random_out1_1 = rnormal(10,8.5)
generate random_out2_1 = rnormal(10,8.5)
generate random_out3_1 = rnormal(10,8.5)
generate random_out4_1 = rnormal(10,8.5)
generate random_out5_1 = rnormal(10,8.5)
generate random_out6_1 = rnormal(10,8.5)

gen grant1_1=random_out1_1/5+0.15 if element1==1
replace grant1_1=random_out1_1/5 if element1==2

gen grant2_1=random_out2_1/5+0.31 if element2==1
replace grant2_1=random_out2_1/5 if element2==2

gen grant3_1=random_out3_1/5+0.42 if element3==1
replace grant3_1=random_out3_1/5 if element3==2

gen grant4_1=random_out4_1/5+0.21 if element4==1
replace grant4_1=random_out4_1/5 if element4==2

gen grant5_1=random_out5_1/5+0.13 if element5==1
replace grant5_1=random_out5_1/5 if element5==2

gen grant6_1=random_out6_1/5+0.18 if element5==1
replace grant6_1=random_out6_1/5 if element5==2

gen overhead1_1=random_out1_1+3.7 if element1==1
replace overhead1_1=random_out1_1 if element1==2

gen overhead2_1=random_out2_1+2.6 if element2==1
replace overhead2_1=random_out2_1 if element2==2

gen overhead3_1=random_out3_1+4.6 if element3==1
replace overhead3_1=random_out3_1 if element3==2

gen overhead4_1=random_out4_1+1.2 if element4==1
replace overhead4_1=random_out4_1 if element4==2

gen overhead5_1=random_out5_1+0.3 if element5==1
replace overhead5_1=random_out5_1 if element5==2

gen overhead6_1=random_out6_1+2.7 if element5==1
replace overhead6_1=random_out6_1 if element5==2

gen overhead_1=(overhead1_1+overhead2_1+overhead3_1+overhead4_1+overhead5_1+overhead6_1)/6
replace overhead_1=0 if overhead_1<0
gen grant_1=(grant1_1+grant2_1+grant3_1+grant4_1+grant5_1+grant6_1)/6
replace grant_1=0 if grant_1<0
drop overhead1_1 overhead2_1 overhead3_1 overhead4_1 overhead5_1 overhead6_1
drop grant1_1 grant2_1 grant3_1 grant4_1 grant5_1 grant6_1

drop random_out1_1
drop random_cj1_1 random_cj2_1 random_cj3_1 random_cj4_1 random_cj5_1 random_cj6_1
 
rename element1 element1_1
rename element2 element2_1
rename element3 element3_1
rename element4 element4_1
rename element5 element5_1
rename element6 element6_1

}

// 2nd iteration
{ 

generate random_cj1_2 = runiform()
generate random_cj2_2 = runiform()
generate random_cj3_2 = runiform()
generate random_cj4_2 = runiform()
generate random_cj5_2 = runiform()
generate random_cj6_2 = runiform()

sort random_cj1_2
gen element1 = ceil(2 * _n/_N)

sort random_cj2_2
gen element2 = ceil(2 * _n/_N)

sort random_cj3_2
gen element3 = ceil(2 * _n/_N)

sort random_cj4_2
gen element4 = ceil(2 * _n/_N)

sort random_cj5_2
gen element5 = ceil(2 * _n/_N)

sort random_cj6_2
gen element6 = ceil(2 * _n/_N)

generate random_out1_2 = rnormal(10,8.5)
generate random_out2_2 = rnormal(10,8.5)
generate random_out3_2 = rnormal(10,8.5)
generate random_out4_2 = rnormal(10,8.5)
generate random_out5_2 = rnormal(10,8.5)
generate random_out6_2 = rnormal(10,8.5)

gen grant1_2=random_out1_2/5+0.15 if element1==1
replace grant1_2=random_out1_2/5 if element1==2

gen grant2_2=random_out2_2/5+0.31 if element2==1
replace grant2_2=random_out2_2/5 if element2==2

gen grant3_2=random_out3_2/5+0.42 if element3==1
replace grant3_2=random_out3_2/5 if element3==2

gen grant4_2=random_out4_2/5+0.21 if element4==1
replace grant4_2=random_out4_2/5 if element4==2

gen grant5_2=random_out5_2/5+0.13 if element5==1
replace grant5_2=random_out5_2/5 if element5==2

gen grant6_2=random_out6_2/5+0.22 if element6==1
replace grant6_2=random_out6_2/5 if element6==2

gen overhead1_2=random_out1_2+3.7 if element1==1
replace overhead1_2=random_out1_2 if element1==2

gen overhead2_2=random_out2_2+2.6 if element2==1
replace overhead2_2=random_out2_2 if element2==2

gen overhead3_2=random_out3_2+4.6 if element3==1
replace overhead3_2=random_out3_2 if element3==2

gen overhead4_2=random_out4_2+1.2 if element4==1
replace overhead4_2=random_out4_2 if element4==2

gen overhead5_2=random_out5_2+0.3 if element5==1
replace overhead5_2=random_out5_2 if element5==2

gen overhead6_2=random_out6_2+2.2 if element6==1
replace overhead6_2=random_out6_2 if element6==2

gen overhead_2=(overhead1_2+overhead2_2+overhead3_2+overhead4_2+overhead5_2+overhead6_2)/6
replace overhead_2=0 if overhead_2<0
gen grant_2=(grant1_2+grant2_2+grant3_2+grant4_2+grant5_2+grant6_2)/6
replace grant_2=0 if grant_2<0
drop overhead1_2 overhead2_2 overhead3_2 overhead4_2 overhead5_2 overhead6_2
drop grant1_2 grant2_2 grant3_2 grant4_2 grant5_2
drop random_out1_2
drop random_cj1_2 random_cj2_2 random_cj3_2 random_cj4_2 random_cj5_2

rename element1 element1_2
rename element2 element2_2
rename element3 element3_2
rename element4 element4_2
rename element5 element5_2
rename element6 element6_2

}

// 3rd iteration
{ 

generate random_cj1_3 = runiform()
generate random_cj2_3 = runiform()
generate random_cj3_3 = runiform()
generate random_cj4_3 = runiform()
generate random_cj5_3 = runiform()
generate random_cj6_3 = runiform()

sort random_cj1_3
gen element1 = ceil(2 * _n/_N)

sort random_cj2_3
gen element2 = ceil(2 * _n/_N)

sort random_cj3_3
gen element3 = ceil(2 * _n/_N)

sort random_cj4_3
gen element4 = ceil(2 * _n/_N)

sort random_cj5_3
gen element5 = ceil(2 * _n/_N)

sort random_cj6_3
gen element6 = ceil(2 * _n/_N)

generate random_out1_3 = rnormal(10,8.5)
generate random_out2_3 = rnormal(10,8.5)
generate random_out3_3 = rnormal(10,8.5)
generate random_out4_3 = rnormal(10,8.5)
generate random_out5_3 = rnormal(10,8.5)
generate random_out6_3 = rnormal(10,8.5)

gen grant1_3=random_out1_3/5+0.15 if element1==1
replace grant1_3=random_out1_3/5 if element1==2

gen grant2_3=random_out2_3/5+0.31 if element2==1
replace grant2_3=random_out2_3/5 if element2==2

gen grant3_3=random_out3_3/5+0.42 if element3==1
replace grant3_3=random_out3_3/5 if element3==2

gen grant4_3=random_out4_3/5+0.21 if element4==1
replace grant4_3=random_out4_3/5 if element4==2

gen grant5_3=random_out5_3/5+0.13 if element5==1
replace grant5_3=random_out5_3/5 if element5==2

gen grant6_3=random_out6_3/5+0.22 if element6==1
replace grant6_3=random_out6_3/5 if element6==2

gen overhead1_3=random_out1_3+3.7 if element1==1
replace overhead1_3=random_out1_3 if element1==2

gen overhead2_3=random_out2_3+2.6 if element2==1
replace overhead2_3=random_out2_3 if element2==2

gen overhead3_3=random_out3_3+4.6 if element3==1
replace overhead3_3=random_out3_3 if element3==2

gen overhead4_3=random_out4_3+1.2 if element4==1
replace overhead4_3=random_out4_3 if element4==2

gen overhead5_3=random_out5_3+0.3 if element5==1
replace overhead5_3=random_out5_3 if element5==2

gen overhead6_3=random_out6_3+0.3 if element6==1
replace overhead6_3=random_out6_3 if element6==2

gen overhead_3=(overhead1_3+overhead2_3+overhead3_3+overhead4_3+overhead5_3+overhead6_3)/6
replace overhead_3=0 if overhead_3<0
gen grant_3=(grant1_3+grant2_3+grant3_3+grant4_3+grant5_3+grant6_3)/6
replace grant_3=0 if grant_3<0
drop overhead1_3 overhead2_3 overhead3_3 overhead4_3 overhead5_3 overhead6_3
drop grant1_3 grant2_3 grant3_3 grant4_3 grant5_3 grant6_3
drop random_out1_3
drop random_cj1_3 random_cj2_3 random_cj3_3 random_cj4_3 random_cj5_3 random_cj6_3

rename element1 element1_3
rename element2 element2_3
rename element3 element3_3
rename element4 element4_3
rename element5 element5_3
rename element6 element6_3
}

// 4th iteration
{ 

generate random_cj1_4 = runiform()
generate random_cj2_4 = runiform()
generate random_cj3_4 = runiform()
generate random_cj4_4 = runiform()
generate random_cj5_4 = runiform()
generate random_cj6_4 = runiform()

sort random_cj1_4
gen element1 = ceil(2 * _n/_N)

sort random_cj2_4
gen element2 = ceil(2 * _n/_N)

sort random_cj3_4
gen element3 = ceil(2 * _n/_N)

sort random_cj4_4
gen element4 = ceil(2 * _n/_N)

sort random_cj5_4
gen element5 = ceil(2 * _n/_N)

sort random_cj6_4
gen element6 = ceil(2 * _n/_N)

generate random_out1_4 = rnormal(10,8.5)
generate random_out2_4 = rnormal(10,8.5)
generate random_out3_4 = rnormal(10,8.5)
generate random_out4_4 = rnormal(10,8.5)
generate random_out5_4 = rnormal(10,8.5)
generate random_out6_4 = rnormal(10,8.5)

gen grant1_4=random_out1_4/5+0.15 if element1==1
replace grant1_4=random_out1_4/5 if element1==2

gen grant2_4=random_out2_4/5+0.31 if element2==1
replace grant2_4=random_out2_4/5 if element2==2

gen grant3_4=random_out3_4/5+0.42 if element3==1
replace grant3_4=random_out3_4/5 if element3==2

gen grant4_4=random_out4_4/5+0.21 if element4==1
replace grant4_4=random_out4_4/5 if element4==2

gen grant5_4=random_out5_4/5+0.13 if element5==1
replace grant5_4=random_out5_4/5 if element5==2

gen grant6_4=random_out6_4/5+0.13 if element6==1
replace grant6_4=random_out6_4/5 if element6==2

gen overhead1_4=random_out1_4+3.7 if element1==1
replace overhead1_4=random_out1_4 if element1==2

gen overhead2_4=random_out2_4+2.6 if element2==1
replace overhead2_4=random_out2_4 if element2==2

gen overhead3_4=random_out3_4+4.6 if element3==1
replace overhead3_4=random_out3_4 if element3==2

gen overhead4_4=random_out4_4+1.2 if element4==1
replace overhead4_4=random_out4_4 if element4==2

gen overhead5_4=random_out5_4+0.3 if element5==1
replace overhead5_4=random_out5_4 if element5==2

gen overhead6_4=random_out6_4+0.3 if element6==1
replace overhead6_4=random_out6_4 if element6==2

gen overhead_4=(overhead1_4+overhead2_4+overhead3_4+overhead4_4+overhead5_4+overhead6_4)/6
replace overhead_4=0 if overhead_4<0
gen grant_4=(grant1_4+grant2_4+grant3_4+grant4_4+grant5_4+grant6_4)/6
replace grant_4=0 if grant_4<0
drop overhead1_4 overhead2_4 overhead3_4 overhead4_4 overhead5_4 overhead6_4
drop grant1_4 grant2_4 grant3_4 grant4_4 grant5_4 grant6_4
drop random_out1_4
drop random_cj1_4 random_cj2_4 random_cj3_4 random_cj4_4 random_cj5_4 random_cj6_4

rename element1 element1_4
rename element2 element2_4
rename element3 element3_4
rename element4 element4_4
rename element5 element5_4
rename element6 element6_4

}

// 5th iteration
{ 

generate random_cj1_5 = runiform()
generate random_cj2_5 = runiform()
generate random_cj3_5 = runiform()
generate random_cj4_5 = runiform()
generate random_cj5_5 = runiform()
generate random_cj6_5 = runiform()

sort random_cj1_5
gen element1 = ceil(2 * _n/_N)

sort random_cj2_5
gen element2 = ceil(2 * _n/_N)

sort random_cj3_5
gen element3 = ceil(2 * _n/_N)

sort random_cj4_5
gen element4 = ceil(2 * _n/_N)

sort random_cj5_5
gen element5 = ceil(2 * _n/_N)

sort random_cj6_5
gen element6 = ceil(2 * _n/_N)

generate random_out1_5 = rnormal(10,8.5)
generate random_out2_5 = rnormal(10,8.5)
generate random_out3_5 = rnormal(10,8.5)
generate random_out4_5 = rnormal(10,8.5)
generate random_out5_5 = rnormal(10,8.5)
generate random_out6_5 = rnormal(10,8.5)

gen grant1_5=random_out1_5/5+0.15 if element1==1
replace grant1_5=random_out1_5/5 if element1==2

gen grant2_5=random_out2_5/5+0.31 if element2==1
replace grant2_5=random_out2_5/5 if element2==2

gen grant3_5=random_out3_5/5+0.42 if element3==1
replace grant3_5=random_out3_5/5 if element3==2

gen grant4_5=random_out4_5/5+0.21 if element4==1
replace grant4_5=random_out4_5/5 if element4==2

gen grant5_5=random_out5_5/5+0.13 if element5==1
replace grant5_5=random_out5_5/5 if element5==2

gen grant6_5=random_out6_5/5+0.22 if element6==1
replace grant6_5=random_out6_5/5 if element6==2

gen overhead1_5=random_out1_5+3.7 if element1==1
replace overhead1_5=random_out1_5 if element1==2

gen overhead2_5=random_out2_5+2.6 if element2==1
replace overhead2_5=random_out2_5 if element2==2

gen overhead3_5=random_out3_5+4.6 if element3==1
replace overhead3_5=random_out4_5 if element3==2

gen overhead4_5=random_out4_5+1.2 if element4==1
replace overhead4_5=random_out4_5 if element4==2

gen overhead5_5=random_out1+0.3 if element5==1
replace overhead5_5=random_out1 if element5==2

gen overhead6_5=random_out1+2.3 if element6==1
replace overhead6_5=random_out1 if element6==2

gen overhead_5=(overhead1_5+overhead2_5+overhead3_5+overhead4_5+overhead5_5+overhead6_5)/6
replace overhead_5=0 if overhead_5<0
gen grant_5=(grant1_5+grant2_5+grant3_5+grant4_5+grant5_5+grant6_5)/6
replace grant_5=0 if grant_5<0
drop overhead1_5 overhead2_5 overhead3_5 overhead4_5 overhead5_5 overhead6_5
drop grant1_5 grant2_5 grant3_5 grant4_5 grant5_5 grant6_5
drop random_out1_5
drop random_cj1_5 random_cj2_5 random_cj3_5 random_cj4_5 random_cj5_5 random_cj6_5

rename element1 element1_5
rename element2 element2_5
rename element3 element3_5
rename element4 element4_5
rename element5 element5_5
rename element6 element6_5
}

// 6th iteration
{ 

generate random_cj1_6 = runiform()
generate random_cj2_6 = runiform()
generate random_cj3_6 = runiform()
generate random_cj4_6 = runiform()
generate random_cj5_6 = runiform()
generate random_cj6_6 = runiform()

sort random_cj1_6
gen element1 = ceil(2 * _n/_N)

sort random_cj2_6
gen element2 = ceil(2 * _n/_N)

sort random_cj3_6
gen element3 = ceil(2 * _n/_N)

sort random_cj4_6
gen element4 = ceil(2 * _n/_N)

sort random_cj5_6
gen element5 = ceil(2 * _n/_N)

sort random_cj6_6
gen element6 = ceil(2 * _n/_N)

generate random_out1_6 = rnormal(10,8.5)
generate random_out2_6 = rnormal(10,8.5)
generate random_out3_6 = rnormal(10,8.5)
generate random_out4_6 = rnormal(10,8.5)
generate random_out5_6 = rnormal(10,8.5)
generate random_out6_6 = rnormal(10,8.5)

gen grant1_6=random_out1_6/5+0.15 if element1==1
replace grant1_6=random_out1_6/5 if element1==2

gen grant2_6=random_out2_6/5+0.11 if element2==1
replace grant2_6=random_out2_6/5 if element2==2

gen grant3_6=random_out3_6/5+0.22 if element3==1
replace grant3_6=random_out3_6/5 if element3==2

gen grant4_6=random_out4_6/5+0.11 if element4==1
replace grant4_6=random_out4_6/5 if element4==2

gen grant5_6=random_out5_6/5+0.08 if element5==1
replace grant5_6=random_out5_6/5 if element5==2

gen grant6_6=random_out5_6/5+0.18 if element6==1
replace grant6_6=random_out5_6/5 if element6==2

gen overhead1_6=random_out1_6+1.7 if element1==1
replace overhead1_6=random_out1_6 if element1==2

gen overhead2_6=random_out2_6+0.6 if element2==1
replace overhead2_6=random_out2_6 if element2==2

gen overhead3_6=random_out3_6+1.6 if element3==1
replace overhead3_6=random_out3_6 if element3==2

gen overhead4_6=random_out4_6+0.2 if element4==1
replace overhead4_6=random_out4_6 if element4==2

gen overhead5_6=random_out5_6+0.3 if element5==1
replace overhead5_6=random_out5_6 if element5==2

gen overhead6_6=random_out5_6+2.3 if element6==1
replace overhead6_6=random_out6_6 if element6==2

gen overhead_6=(overhead1_6+overhead2_6+overhead3_6+overhead4_6+overhead5_6+overhead6_6)/5
replace overhead_6=0 if overhead_6<0
gen grant_6=(grant1_6+grant2_6+grant3_6+grant4_6+grant5_6+grant6_6)/5
replace grant_6=0 if grant_6<0
drop overhead1_6 overhead2_6 overhead3_6 overhead4_6 overhead5_6 overhead6_6
drop grant1_6 grant2_6 grant3_6 grant4_6 grant5_6 grant6_6
drop random_out1_6
drop random_cj1_6 random_cj2_6 random_cj3_6 random_cj4_6 random_cj5_6 random_cj6_6

rename element1 element1_6
rename element2 element2_6
rename element3 element3_6
rename element4 element4_6
rename element5 element5_6
rename element6 element6_6
}

// 7th iteration
{ 

generate random_cj1_7 = runiform()
generate random_cj2_7 = runiform()
generate random_cj3_7 = runiform()
generate random_cj4_7 = runiform()
generate random_cj5_7 = runiform()
generate random_cj6_7 = runiform()

sort random_cj1_7
gen element1 = ceil(2 * _n/_N)

sort random_cj2_7
gen element2 = ceil(2 * _n/_N)

sort random_cj3_7
gen element3 = ceil(2 * _n/_N)

sort random_cj4_7
gen element4 = ceil(2 * _n/_N)

sort random_cj5_7
gen element5 = ceil(2 * _n/_N)

sort random_cj6_7
gen element6 = ceil(2 * _n/_N)

generate random_out1_7 = rnormal(10,8.5)
generate random_out2_7 = rnormal(10,8.5)
generate random_out3_7 = rnormal(10,8.5)
generate random_out4_7 = rnormal(10,8.5)
generate random_out5_7 = rnormal(10,8.5)
generate random_out6_7 = rnormal(10,8.5)

gen grant1_7=random_out1_7/5+0.15 if element1==1
replace grant1_7=random_out1_7/5 if element1==2

gen grant2_7=random_out2_7/5+0.11 if element2==1
replace grant2_7=random_out2_7/5 if element2==2

gen grant3_7=random_out3_7/5+0.22 if element3==1
replace grant3_7=random_out3_7/5 if element3==2

gen grant4_7=random_out4_7/5+0.11 if element4==1
replace grant4_7=random_out4_7/5 if element4==2

gen grant5_7=random_out5_7/5+0.08 if element5==1
replace grant5_7=random_out5_7/5 if element5==2

gen grant6_7=random_out5_7/5+0.18 if element6==1
replace grant6_7=random_out5_7/5 if element6==2

gen overhead1_7=random_out1_7+1.7 if element1==1
replace overhead1_7=random_out1_7 if element1==2

gen overhead2_7=random_out2_7+0.6 if element2==1
replace overhead2_7=random_out2_7 if element2==2

gen overhead3_7=random_out3_7+1.6 if element3==1
replace overhead3_7=random_out3_7 if element3==2

gen overhead4_7=random_out4_7+0.2 if element4==1
replace overhead4_7=random_out4_7 if element4==2

gen overhead5_7=random_out5_7+0.3 if element5==1
replace overhead5_7=random_out5_7 if element5==2

gen overhead6_7=random_out5_7+2.3 if element6==1
replace overhead6_7=random_out6_7 if element6==2

gen overhead_7=(overhead1_7+overhead2_7+overhead3_7+overhead4_7+overhead5_7+overhead6_7)/5
replace overhead_7=0 if overhead_7<0
gen grant_7=(grant1_7+grant2_7+grant3_7+grant4_7+grant5_7+grant6_7)/5
replace grant_7=0 if grant_7<0
drop overhead1_7 overhead2_7 overhead3_7 overhead4_7 overhead5_7 overhead6_7
drop grant1_7 grant2_7 grant3_7 grant4_7 grant5_7 grant6_7
drop random_out1_7
drop random_cj1_7 random_cj2_7 random_cj3_7 random_cj4_7 random_cj5_7 random_cj6_7

rename element1 element1_7
rename element2 element2_7
rename element3 element3_7
rename element4 element4_7
rename element5 element5_7
rename element6 element6_7

}

// 8th iteration
{ 

generate random_cj1_8 = runiform()
generate random_cj2_8 = runiform()
generate random_cj3_8 = runiform()
generate random_cj4_8 = runiform()
generate random_cj5_8 = runiform()
generate random_cj6_8 = runiform()

sort random_cj1_8
gen element1 = ceil(2 * _n/_N)

sort random_cj2_8
gen element2 = ceil(2 * _n/_N)

sort random_cj3_8
gen element3 = ceil(2 * _n/_N)

sort random_cj4_8
gen element4 = ceil(2 * _n/_N)

sort random_cj5_8
gen element5 = ceil(2 * _n/_N)

sort random_cj6_8
gen element6 = ceil(2 * _n/_N)

generate random_out1_8 = rnormal(10,8.5)
generate random_out2_8 = rnormal(10,8.5)
generate random_out3_8 = rnormal(10,8.5)
generate random_out4_8 = rnormal(10,8.5)
generate random_out5_8 = rnormal(10,8.5)
generate random_out6_8 = rnormal(10,8.5)

gen grant1_8=random_out1_8/5+0.15 if element1==1
replace grant1_8=random_out1_8/5 if element1==2

gen grant2_8=random_out2_8/5+0.11 if element2==1
replace grant2_8=random_out2_8/5 if element2==2

gen grant3_8=random_out3_8/5+0.22 if element3==1
replace grant3_8=random_out3_8/5 if element3==2

gen grant4_8=random_out4_8/5+0.11 if element4==1
replace grant4_8=random_out4_8/5 if element4==2

gen grant5_8=random_out5_8/5+0.08 if element5==1
replace grant5_8=random_out5_8/5 if element5==2

gen grant6_8=random_out5_8/5+0.18 if element6==1
replace grant6_8=random_out5_8/5 if element6==2

gen overhead1_8=random_out1_8+1.7 if element1==1
replace overhead1_8=random_out1_8 if element1==2

gen overhead2_8=random_out2_8+0.6 if element2==1
replace overhead2_8=random_out2_8 if element2==2

gen overhead3_8=random_out3_8+1.6 if element3==1
replace overhead3_8=random_out3_8 if element3==2

gen overhead4_8=random_out4_8+0.2 if element4==1
replace overhead4_8=random_out4_8 if element4==2

gen overhead5_8=random_out5_8+0.3 if element5==1
replace overhead5_8=random_out5_8 if element5==2

gen overhead6_8=random_out5_8+2.3 if element6==1
replace overhead6_8=random_out6_8 if element6==2

gen overhead_8=(overhead1_8+overhead2_8+overhead3_8+overhead4_8+overhead5_8+overhead6_8)/5
replace overhead_8=0 if overhead_8<0
gen grant_8=(grant1_8+grant2_8+grant3_8+grant4_8+grant5_8+grant6_8)/5
replace grant_8=0 if grant_8<0
drop overhead1_8 overhead2_8 overhead3_8 overhead4_8 overhead5_8 overhead6_8
drop grant1_8 grant2_8 grant3_8 grant4_8 grant5_8 grant6_8
drop random_out1_8
drop random_cj1_8 random_cj2_8 random_cj3_8 random_cj4_8 random_cj5_8 random_cj6_8

rename element1 element1_8
rename element2 element2_8
rename element3 element3_8
rename element4 element4_8
rename element5 element5_8
rename element6 element6_8
}

// 9th iteration
{ 

generate random_cj1_9 = runiform()
generate random_cj2_9 = runiform()
generate random_cj3_9 = runiform()
generate random_cj4_9 = runiform()
generate random_cj5_9 = runiform()
generate random_cj6_9 = runiform()

sort random_cj1_9
gen element1 = ceil(2 * _n/_N)

sort random_cj2_9
gen element2 = ceil(2 * _n/_N)

sort random_cj3_9
gen element3 = ceil(2 * _n/_N)

sort random_cj4_9
gen element4 = ceil(2 * _n/_N)

sort random_cj5_9
gen element5 = ceil(2 * _n/_N)

sort random_cj6_9
gen element6 = ceil(2 * _n/_N)

generate random_out1_9 = rnormal(10,8.5)
generate random_out2_9 = rnormal(10,8.5)
generate random_out3_9 = rnormal(10,8.5)
generate random_out4_9 = rnormal(10,8.5)
generate random_out5_9 = rnormal(10,8.5)
generate random_out6_9 = rnormal(10,8.5)

gen grant1_9=random_out1_9/5+0.15 if element1==1
replace grant1_9=random_out1_9/5 if element1==2

gen grant2_9=random_out2_9/5+0.11 if element2==1
replace grant2_9=random_out2_9/5 if element2==2

gen grant3_9=random_out3_9/5+0.22 if element3==1
replace grant3_9=random_out3_9/5 if element3==2

gen grant4_9=random_out4_9/5+0.11 if element4==1
replace grant4_9=random_out4_9/5 if element4==2

gen grant5_9=random_out5_9/5+0.08 if element5==1
replace grant5_9=random_out5_9/5 if element5==2

gen grant6_9=random_out5_9/5+0.18 if element6==1
replace grant6_9=random_out5_9/5 if element6==2

gen overhead1_9=random_out1_9+1.7 if element1==1
replace overhead1_9=random_out1_9 if element1==2

gen overhead2_9=random_out2_9+0.6 if element2==1
replace overhead2_9=random_out2_9 if element2==2

gen overhead3_9=random_out3_9+1.6 if element3==1
replace overhead3_9=random_out3_9 if element3==2

gen overhead4_9=random_out4_9+0.2 if element4==1
replace overhead4_9=random_out4_9 if element4==2

gen overhead5_9=random_out5_9+0.3 if element5==1
replace overhead5_9=random_out5_9 if element5==2

gen overhead6_9=random_out5_9+2.3 if element6==1
replace overhead6_9=random_out6_9 if element6==2

gen overhead_9=(overhead1_9+overhead2_9+overhead3_9+overhead4_9+overhead5_9+overhead6_9)/5
replace overhead_9=0 if overhead_9<0
gen grant_9=(grant1_9+grant2_9+grant3_9+grant4_9+grant5_9+grant6_9)/5
replace grant_9=0 if grant_9<0
drop overhead1_9 overhead2_9 overhead3_9 overhead4_9 overhead5_9 overhead6_9
drop grant1_9 grant2_9 grant3_9 grant4_9 grant5_9 grant6_9
drop random_out1_9
drop random_cj1_9 random_cj2_9 random_cj3_9 random_cj4_9 random_cj5_9 random_cj6_9

rename element1 element1_9
rename element2 element2_9
rename element3 element3_9
rename element4 element4_9
rename element5 element5_9
rename element6 element6_9
}

// 10th iteration
{ 

generate random_cj1_10 = runiform()
generate random_cj2_10 = runiform()
generate random_cj3_10 = runiform()
generate random_cj4_10 = runiform()
generate random_cj5_10 = runiform()
generate random_cj6_10 = runiform()

sort random_cj1_10
gen element1 = ceil(2 * _n/_N)

sort random_cj2_10
gen element2 = ceil(2 * _n/_N)

sort random_cj3_10
gen element3 = ceil(2 * _n/_N)

sort random_cj4_10
gen element4 = ceil(2 * _n/_N)

sort random_cj5_10
gen element5 = ceil(2 * _n/_N)

sort random_cj6_10
gen element6 = ceil(2 * _n/_N)

generate random_out1_10 = rnormal(10,8.5)
generate random_out2_10 = rnormal(10,8.5)
generate random_out3_10 = rnormal(10,8.5)
generate random_out4_10 = rnormal(10,8.5)
generate random_out5_10 = rnormal(10,8.5)
generate random_out6_10 = rnormal(10,8.5)

gen grant1_10=random_out1_10/5+0.15 if element1==1
replace grant1_10=random_out1_10/5 if element1==2

gen grant2_10=random_out2_10/5+0.11 if element2==1
replace grant2_10=random_out2_10/5 if element2==2

gen grant3_10=random_out3_10/5+0.22 if element3==1
replace grant3_10=random_out3_10/5 if element3==2

gen grant4_10=random_out4_10/5+0.11 if element4==1
replace grant4_10=random_out4_10/5 if element4==2

gen grant5_10=random_out5_10/5+0.08 if element5==1
replace grant5_10=random_out5_10/5 if element5==2

gen grant6_10=random_out5_10/5+0.18 if element6==1
replace grant6_10=random_out5_10/5 if element6==2

gen overhead1_10=random_out1_10+1.7 if element1==1
replace overhead1_10=random_out1_10 if element1==2

gen overhead2_10=random_out2_10+0.6 if element2==1
replace overhead2_10=random_out2_10 if element2==2

gen overhead3_10=random_out3_10+1.6 if element3==1
replace overhead3_10=random_out3_10 if element3==2

gen overhead4_10=random_out4_10+0.2 if element4==1
replace overhead4_10=random_out4_10 if element4==2

gen overhead5_10=random_out5_10+0.3 if element5==1
replace overhead5_10=random_out5_10 if element5==2

gen overhead6_10=random_out5_10+2.3 if element6==1
replace overhead6_10=random_out6_10 if element6==2

gen overhead_10=(overhead1_10+overhead2_10+overhead3_10+overhead4_10+overhead5_10+overhead6_10)/5
replace overhead_10=0 if overhead_10<0
gen grant_10=(grant1_10+grant2_10+grant3_10+grant4_10+grant5_10+grant6_10)/5
replace grant_10=0 if grant_10<0
drop overhead1_10 overhead2_10 overhead3_10 overhead4_10 overhead5_10 overhead6_10
drop grant1_10 grant2_10 grant3_10 grant4_10 grant5_10 grant6_10
drop random_out1_10
drop random_cj1_10 random_cj2_10 random_cj3_10 random_cj4_10 random_cj5_10 random_cj6_10

rename element1 element1_10
rename element2 element2_10
rename element3 element3_10
rename element4 element4_10
rename element5 element5_10
rename element6 element6_10
}

// 11th iteration
{ 

generate random_cj1_11 = runiform()
generate random_cj2_11 = runiform()
generate random_cj3_11 = runiform()
generate random_cj4_11 = runiform()
generate random_cj5_11 = runiform()
generate random_cj6_11 = runiform()

sort random_cj1_11
gen element1 = ceil(2 * _n/_N)

sort random_cj2_11
gen element2 = ceil(2 * _n/_N)

sort random_cj3_11
gen element3 = ceil(2 * _n/_N)

sort random_cj4_11
gen element4 = ceil(2 * _n/_N)

sort random_cj5_11
gen element5 = ceil(2 * _n/_N)

sort random_cj6_11
gen element6 = ceil(2 * _n/_N)

generate random_out1_11 = rnormal(10,8.5)
generate random_out2_11 = rnormal(10,8.5)
generate random_out3_11 = rnormal(10,8.5)
generate random_out4_11 = rnormal(10,8.5)
generate random_out5_11 = rnormal(10,8.5)
generate random_out6_11 = rnormal(10,8.5)

gen grant1_11=random_out1_11/5+0.15 if element1==1
replace grant1_11=random_out1_11/5 if element1==2

gen grant2_11=random_out2_11/5+0.11 if element2==1
replace grant2_11=random_out2_11/5 if element2==2

gen grant3_11=random_out3_11/5+0.22 if element3==1
replace grant3_11=random_out3_11/5 if element3==2

gen grant4_11=random_out4_11/5+0.11 if element4==1
replace grant4_11=random_out4_11/5 if element4==2

gen grant5_11=random_out5_11/5+0.08 if element5==1
replace grant5_11=random_out5_11/5 if element5==2

gen grant6_11=random_out5_11/5+0.18 if element6==1
replace grant6_11=random_out5_11/5 if element6==2

gen overhead1_11=random_out1_11+1.7 if element1==1
replace overhead1_11=random_out1_11 if element1==2

gen overhead2_11=random_out2_11+0.6 if element2==1
replace overhead2_11=random_out2_11 if element2==2

gen overhead3_11=random_out3_11+1.6 if element3==1
replace overhead3_11=random_out3_11 if element3==2

gen overhead4_11=random_out4_11+0.2 if element4==1
replace overhead4_11=random_out4_11 if element4==2

gen overhead5_11=random_out5_11+0.3 if element5==1
replace overhead5_11=random_out5_11 if element5==2

gen overhead6_11=random_out5_11+2.3 if element6==1
replace overhead6_11=random_out6_11 if element6==2

gen overhead_11=(overhead1_11+overhead2_11+overhead3_11+overhead4_11+overhead5_11+overhead6_11)/5
replace overhead_11=0 if overhead_11<0
gen grant_11=(grant1_11+grant2_11+grant3_11+grant4_11+grant5_11+grant6_11)/5
replace grant_11=0 if grant_11<0
drop overhead1_11 overhead2_11 overhead3_11 overhead4_11 overhead5_11 overhead6_11
drop grant1_11 grant2_11 grant3_11 grant4_11 grant5_11 grant6_11
drop random_out1_11
drop random_cj1_11 random_cj2_11 random_cj3_11 random_cj4_11 random_cj5_11 random_cj6_11

rename element1 element1_11
rename element2 element2_11
rename element3 element3_11
rename element4 element4_11
rename element5 element5_11
rename element6 element6_11
}

// 12th iteration
{ 

generate random_cj1_12 = runiform()
generate random_cj2_12 = runiform()
generate random_cj3_12 = runiform()
generate random_cj4_12 = runiform()
generate random_cj5_12 = runiform()
generate random_cj6_12 = runiform()

sort random_cj1_12
gen element1 = ceil(2 * _n/_N)

sort random_cj2_12
gen element2 = ceil(2 * _n/_N)

sort random_cj3_12
gen element3 = ceil(2 * _n/_N)

sort random_cj4_12
gen element4 = ceil(2 * _n/_N)

sort random_cj5_12
gen element5 = ceil(2 * _n/_N)

sort random_cj6_12
gen element6 = ceil(2 * _n/_N)

generate random_out1_12 = rnormal(10,8.5)
generate random_out2_12 = rnormal(10,8.5)
generate random_out3_12 = rnormal(10,8.5)
generate random_out4_12 = rnormal(10,8.5)
generate random_out5_12 = rnormal(10,8.5)
generate random_out6_12 = rnormal(10,8.5)

gen grant1_12=random_out1_12/5+0.15 if element1==1
replace grant1_12=random_out1_12/5 if element1==2

gen grant2_12=random_out2_12/5+0.11 if element2==1
replace grant2_12=random_out2_12/5 if element2==2

gen grant3_12=random_out3_12/5+0.22 if element3==1
replace grant3_12=random_out3_12/5 if element3==2

gen grant4_12=random_out4_12/5+0.11 if element4==1
replace grant4_12=random_out4_12/5 if element4==2

gen grant5_12=random_out5_12/5+0.08 if element5==1
replace grant5_12=random_out5_12/5 if element5==2

gen grant6_12=random_out5_12/5+0.18 if element6==1
replace grant6_12=random_out5_12/5 if element6==2

gen overhead1_12=random_out1_12+1.7 if element1==1
replace overhead1_12=random_out1_12 if element1==2

gen overhead2_12=random_out2_12+0.6 if element2==1
replace overhead2_12=random_out2_12 if element2==2

gen overhead3_12=random_out3_12+1.6 if element3==1
replace overhead3_12=random_out3_12 if element3==2

gen overhead4_12=random_out4_12+0.2 if element4==1
replace overhead4_12=random_out4_12 if element4==2

gen overhead5_12=random_out5_12+0.3 if element5==1
replace overhead5_12=random_out5_12 if element5==2

gen overhead6_12=random_out5_12+2.3 if element6==1
replace overhead6_12=random_out6_12 if element6==2

gen overhead_12=(overhead1_12+overhead2_12+overhead3_12+overhead4_12+overhead5_12+overhead6_12)/5
replace overhead_12=0 if overhead_12<0
gen grant_12=(grant1_12+grant2_12+grant3_12+grant4_12+grant5_12+grant6_12)/5
replace grant_12=0 if grant_12<0
drop overhead1_12 overhead2_12 overhead3_12 overhead4_12 overhead5_12 overhead6_12
drop grant1_12 grant2_12 grant3_12 grant4_12 grant5_12 grant6_12
drop random_out1_12
drop random_cj1_12 random_cj2_12 random_cj3_12 random_cj4_12 random_cj5_12 random_cj6_12

rename element1 element1_12
rename element2 element2_12
rename element3 element3_12
rename element4 element4_12
rename element5 element5_12
rename element6 element6_12
}

// 13th iteration
{ 

generate random_cj1_13 = runiform()
generate random_cj2_13 = runiform()
generate random_cj3_13 = runiform()
generate random_cj4_13 = runiform()
generate random_cj5_13 = runiform()
generate random_cj6_13 = runiform()

sort random_cj1_13
gen element1 = ceil(2 * _n/_N)

sort random_cj2_13
gen element2 = ceil(2 * _n/_N)

sort random_cj3_13
gen element3 = ceil(2 * _n/_N)

sort random_cj4_13
gen element4 = ceil(2 * _n/_N)

sort random_cj5_13
gen element5 = ceil(2 * _n/_N)

sort random_cj6_13
gen element6 = ceil(2 * _n/_N)

generate random_out1_13 = rnormal(10,8.5)
generate random_out2_13 = rnormal(10,8.5)
generate random_out3_13 = rnormal(10,8.5)
generate random_out4_13 = rnormal(10,8.5)
generate random_out5_13 = rnormal(10,8.5)
generate random_out6_13 = rnormal(10,8.5)

gen grant1_13=random_out1_13/5+0.15 if element1==1
replace grant1_13=random_out1_13/5 if element1==2

gen grant2_13=random_out2_13/5+0.11 if element2==1
replace grant2_13=random_out2_13/5 if element2==2

gen grant3_13=random_out3_13/5+0.22 if element3==1
replace grant3_13=random_out3_13/5 if element3==2

gen grant4_13=random_out4_13/5+0.11 if element4==1
replace grant4_13=random_out4_13/5 if element4==2

gen grant5_13=random_out5_13/5+0.08 if element5==1
replace grant5_13=random_out5_13/5 if element5==2

gen grant6_13=random_out5_13/5+0.18 if element6==1
replace grant6_13=random_out5_13/5 if element6==2

gen overhead1_13=random_out1_13+1.7 if element1==1
replace overhead1_13=random_out1_13 if element1==2

gen overhead2_13=random_out2_13+0.6 if element2==1
replace overhead2_13=random_out2_13 if element2==2

gen overhead3_13=random_out3_13+1.6 if element3==1
replace overhead3_13=random_out3_13 if element3==2

gen overhead4_13=random_out4_13+0.2 if element4==1
replace overhead4_13=random_out4_13 if element4==2

gen overhead5_13=random_out5_13+0.3 if element5==1
replace overhead5_13=random_out5_13 if element5==2

gen overhead6_13=random_out5_13+2.3 if element6==1
replace overhead6_13=random_out6_13 if element6==2

gen overhead_13=(overhead1_13+overhead2_13+overhead3_13+overhead4_13+overhead5_13+overhead6_13)/5
replace overhead_13=0 if overhead_13<0
gen grant_13=(grant1_13+grant2_13+grant3_13+grant4_13+grant5_13+grant6_13)/5
replace grant_13=0 if grant_13<0
drop overhead1_13 overhead2_13 overhead3_13 overhead4_13 overhead5_13 overhead6_13
drop grant1_13 grant2_13 grant3_13 grant4_13 grant5_13 grant6_13
drop random_out1_13
drop random_cj1_13 random_cj2_13 random_cj3_13 random_cj4_13 random_cj5_13 random_cj6_13

rename element1 element1_13
rename element2 element2_13
rename element3 element3_13
rename element4 element4_13
rename element5 element5_13
rename element6 element6_13
	
}

// 14th Iteration 
{ 

generate random_cj1_14 = runiform()
generate random_cj2_14 = runiform()
generate random_cj3_14 = runiform()
generate random_cj4_14 = runiform()
generate random_cj5_14 = runiform()
generate random_cj6_14 = runiform()

sort random_cj1_14
gen element1 = ceil(2 * _n/_N)

sort random_cj2_14
gen element2 = ceil(2 * _n/_N)

sort random_cj3_14
gen element3 = ceil(2 * _n/_N)

sort random_cj4_14
gen element4 = ceil(2 * _n/_N)

sort random_cj5_14
gen element5 = ceil(2 * _n/_N)

sort random_cj6_14
gen element6 = ceil(2 * _n/_N)

generate random_out1_14 = rnormal(10,8.5)
generate random_out2_14 = rnormal(10,8.5)
generate random_out3_14 = rnormal(10,8.5)
generate random_out4_14 = rnormal(10,8.5)
generate random_out5_14 = rnormal(10,8.5)
generate random_out6_14 = rnormal(10,8.5)

gen grant1_14=random_out1_14/5+0.15 if element1==1
replace grant1_14=random_out1_14/5 if element1==2

gen grant2_14=random_out2_14/5+0.11 if element2==1
replace grant2_14=random_out2_14/5 if element2==2

gen grant3_14=random_out3_14/5+0.22 if element3==1
replace grant3_14=random_out3_14/5 if element3==2

gen grant4_14=random_out4_14/5+0.11 if element4==1
replace grant4_14=random_out4_14/5 if element4==2

gen grant5_14=random_out5_14/5+0.08 if element5==1
replace grant5_14=random_out5_14/5 if element5==2

gen grant6_14=random_out5_14/5+0.18 if element6==1
replace grant6_14=random_out5_14/5 if element6==2

gen overhead1_14=random_out1_14+1.7 if element1==1
replace overhead1_14=random_out1_14 if element1==2

gen overhead2_14=random_out2_14+0.6 if element2==1
replace overhead2_14=random_out2_14 if element2==2

gen overhead3_14=random_out3_14+1.6 if element3==1
replace overhead3_14=random_out3_14 if element3==2

gen overhead4_14=random_out4_14+0.2 if element4==1
replace overhead4_14=random_out4_14 if element4==2

gen overhead5_14=random_out5_14+0.3 if element5==1
replace overhead5_14=random_out5_14 if element5==2

gen overhead6_14=random_out5_14+2.3 if element6==1
replace overhead6_14=random_out6_14 if element6==2

gen overhead_14=(overhead1_14+overhead2_14+overhead3_14+overhead4_14+overhead5_14+overhead6_14)/5
replace overhead_14=0 if overhead_14<0
gen grant_14=(grant1_14+grant2_14+grant3_14+grant4_14+grant5_14+grant6_14)/5
replace grant_14=0 if grant_14<0
drop overhead1_14 overhead2_14 overhead3_14 overhead4_14 overhead5_14 overhead6_14
drop grant1_14 grant2_14 grant3_14 grant4_14 grant5_14 grant6_14
drop random_out1_14
drop random_cj1_14 random_cj2_14 random_cj3_14 random_cj4_14 random_cj5_14 random_cj6_14

rename element1 element1_14
rename element2 element2_14
rename element3 element3_14
rename element4 element4_14
rename element5 element5_14
rename element6 element6_14

}

* creating final dataset with 6062 observations (433 respondents * 7 tasks * 2 profiles)

keep id IO group element* overhead_* grant_*

reshape long element1_ element2_ element3_ element4_ element5_ element6_ overhead_ grant_, i(id) j(profile)

replace element1_=element1_-1
replace element2_=element2_-1
replace element3_=element3_-1
replace element4_=element4_-1
replace element5_=element5_-1
replace element6_=element6_-1
replace overhead_=overhead_-0.9
replace grant_=grant_-0.5

rename element1_ em_country
rename element2_ em_sector
rename element3_ em_project
rename element4_ speed
rename element5_ donor
rename element6_ em_workarea

gen country_staff=1 if group==1
replace country_staff=1 if group==2
gen sector_staff=1 if group==3
gen other_staff=1 if group==4
gen weight=1

label define varlab1 1 "Yes" 0 "No"
label define varlab2 1 "1 year" 0 "3 years"
label define varlab3 1 "Private foundation" 0 "Member state"

label value em_country varlab1
label value em_sector varlab1
label value em_project varlab1
label value em_workarea varlab1
label value speed varlab2
label value donor varlab3

*-------------------*
* Regression models *
*-------------------*

* estimating models
reg overhead_  i.em_country i.em_sector i.em_project i.em_workarea i.speed i.donor i.IO [pw = weight], cluster(id)
margins em_country em_sector em_project em_workarea speed donor IO , atmeans post
eststo overhead1

reg grant_  i.em_country i.em_sector i.em_project i.em_workarea i.speed i.donor i.IO, cluster(id)
margins em_country em_sector em_project em_workarea speed donor IO , atmeans post
eststo grant1

* creating figure 3
coefplot overhead1 , xtitle(Marginal Means) scheme(plotplainblind)  drop(*IO) name(overhead1, replace) headings(0.em_country = "{bf:Earmarked to country}" 0.em_sector = "{bf:Earmarked to sector}" 0.em_project = "{bf:Earmarked to project}" 0.em_workarea = "{bf:Earmarked to workarea}" 0.speed = "{bf:Length}" 0.donor = "{bf:Donor}" ) xlabel(10.5(0.3)12)

coefplot grant1 , xtitle(Marginal Means) scheme(plotplainblind)  drop(*IO) name(grant1, replace) headings(0.em_country = "{bf:Earmarked to country}" 0.em_sector = "{bf:Earmarked to sector}" 0.em_project = "{bf:Earmarked to project}" 0.em_workarea = "{bf:Earmarked to workarea}" 0.speed = "{bf:Length}" 0.donor = "{bf:Donor}" ) xlabel(1.7(0.1)2.0)

graph combine overhead1 grant1, scheme(plotplainblind)


